home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 2.iso / heat_tst / term.cfg < prev    next >
Text File  |  1991-10-19  |  7KB  |  310 lines
  1. /*********************************************************************
  2. /*
  3. /*    通信用コンフィグ･ファイル    "term.cfg"
  4. /*
  5. /*    TABSIZE = 4;
  6. /*
  7. /*
  8.  
  9.  
  10. /*******************************************************************
  11. /*    TERN_line : 通信中の入力行チェック
  12. /*        入力    TLIN
  13. /*******************************************************************
  14. TERM_line {
  15.     AUTO_line()
  16. }
  17.  
  18. /*********************************************************************
  19. /*    入力行モードのとき呼び出される
  20. /*
  21. /*    【入力】    TSTR        入力文字列
  22. /*    【復帰】    return(0)    そのまま出力
  23. /*                return(-1)    RET を出力
  24. /*                return(1)    RET を入力行に
  25. /*
  26. TERM_input {
  27.     if ( TSTR = "" ) { return    (0) }
  28.     strmid("TOP",TSTR,0,1)    /* 先頭の1文字を取り出す    */
  29.     if ( TOP = "%" )
  30.     {    /* コマンドモード    */
  31.         RET =""
  32.         strmid("TCMD",TSTR,1)
  33.         /*------------------------------------------------------------
  34.         /*    実際のコマンド実行は各ホスト･コンフィグの
  35.         /*        TERM_cmdLine()
  36.         /*    が行う
  37.         /*------------------------------------------------------------
  38.         TERM_cmdline()
  39.         return    (1)
  40.     } else
  41.     {    return    (0)
  42.     }
  43. }
  44.  
  45. /*******************************************************************
  46. /*    TERM_dial : ダイアルメニュー
  47. /*******************************************************************
  48. TERM_dial {
  49.     mosget("sw","x","y")
  50.  
  51.     while ( 0 )
  52.     {    
  53.         menu2_select( x, y, "DIAL MENU", 
  54.             "D:Dial ",
  55.             "",
  56.             "N:Nifty-Serve",
  57.             "O:Oh!FM TOWNS Net ",
  58.             "J:JATIC",
  59.             "A:Nanno-network",
  60.             "5:HOST [5] ",
  61.             "6:HOST [6] ",
  62.             "7:HOST [7] ",
  63.             "8:HOST [8] ",
  64.             "9:HOST [9] ",
  65.         )
  66.         switch( VAL, 0, "DIAL_dir",        /* 直接ダイアル    */
  67.                      2, "net_1_dial",
  68.                      3, "net_2_dial",
  69.                      4, "net_3_dial",
  70.                      5, "net_4_dial",
  71.                      6, "net_X_dial",
  72.                      7, "net_X_dial",
  73.                      8, "net_X_dial",
  74.                      9, "net_X_dial",
  75.                     10, "net_X_dial"
  76.             )
  77.         return
  78.     }
  79. }
  80.  
  81. /*******************************************************************
  82. /*    TERM_auto : 通信中のマクロ制御メニュー [PF-3]
  83. /*******************************************************************
  84. TERM_auto {
  85.     HOST_menu()                            /* ver.1.01f
  86. }
  87.  
  88.  
  89. /*******************************************************************
  90. /*    TERM_menu : 通信中のマクロ制御メニュー [PF-4]
  91. /*******************************************************************
  92. TERM_menu {
  93.     mosget("sw","x","y")
  94.  
  95.     menu2_select( x, y, "ホスト設定メニュー", 
  96.         "N:Nifty-Serve     設定 ",
  97.         "O:Oh!FM TOWNS Net 設定",
  98.         "J:JATIC           設定" ,
  99.         "A:Nanno-network   設定" ,
  100.         "5:HOST [5] 設定 ",
  101.         "6:HOST [6] 設定 ",
  102.         "7:HOST [7] 設定 ",
  103.         "8:HOST [8] 設定 ",
  104.         "9:HOST [9] 設定 ",
  105.     )
  106.  
  107.     switch( VAL, 0, "net_1_set",
  108.                  1, "net_2_set",
  109.                  2, "net_3_set",
  110.                  3, "net_4_set",
  111.                  4, "net_X_set",
  112.                  5, "net_X_set",
  113.                  6, "net_X_set",
  114.                  7, "net_X_set",
  115.                  8, "net_X_set"
  116.         )
  117. }
  118.  
  119. /*------------------------------------------------------------------
  120. /*    直接ダイアル
  121. /*------------------------------------------------------------------
  122. DIAL_dir {
  123.     mosget("sw","x","y")
  124.     menu_input("_DIAL",32,x,y,C_CYAN,"電話番号を入力してください。")
  125.     if ( VAL < 0 ) { return (-1)}
  126.  
  127.     DIAL = _DIAL;
  128.     term_puts("ATZ\r")
  129.     term_switch( 5,"OK\r")
  130.     if ( VAL < 0 ) { return (-1)}
  131.  
  132.     tel_call()
  133. }
  134.  
  135. /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  136. /*    DIAL <- tel.
  137. /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  138. tel_call {
  139.  
  140.     syslin_puts(C_GREEN,C_MBLACK,"DIAL...")
  141.     mos_cursor(120)
  142.  
  143.     if ( DIAL = "" ) { return (-1) }
  144.     QUE = "";
  145.     RETRY = 0;
  146.     bk = 0;
  147.     while ( bk = 0 )
  148.     {    if ( QUE = "" )
  149.         {    QUE = DIAL;
  150.         }
  151.         TEL - QUE;
  152.         shift(QUE)
  153.  
  154.         wait(1)
  155.         term_puts("ATD \(TEL)\r")
  156.         wait(1)
  157.         term_switch(30, "CONNECT", "BUSY\r","NO CARRIER" )
  158.         if ( VAL = 0 )
  159.         {    /* CONNECT    */
  160.             syslin_puts(C_GREEN,C_MBLACK,"<<<<< CONNECT >>>>>")
  161.             mos_cursor(19)
  162.             wait(1)
  163.             bk = 1;
  164.         } else if ( VAL = 1 )
  165.         {    /* BUSY    */
  166.             inc(RETRY)
  167.                  if ( RETRY = 1 ) { RET = "もっかいかけるか…" }
  168.             else if ( RETRY = 2 ) { RET = "もっかいかけてやるか…" }
  169.             else if ( RETRY = 3 ) { RET = "なっかなかつながンないなぁ～" }
  170.             else if ( RETRY = 4 ) { RET = "まだつながンないかぁ。" }
  171.             else if ( RETRY = 5 ) { RET = "いいかげんにしろよ チクショ！" }
  172.             else if ( RETRY = 6 ) { RET = "だんだん腹たってきたぞ！" }
  173.             else if ( RETRY = 7 ) { RET = "そろそろつながってもいいだろう。" }
  174.             else if ( RETRY = 8 ) { RET = "え～い、 まだか！" }
  175.             else if ( RETRY = 9 ) { RET = "なんどかけさせりゃ 気がすむんだ！" }
  176.             else if ( RETRY =10 ) { RET = "もう10回もかけてんだぞ！" }
  177.             else if ( RETRY =11 ) { RET = "いいかげん あきらめる？？" }
  178.             else if ( RETRY =12 ) { RET = "気長に待つか～" }
  179.             else if ( RETRY >12 ) { RET = "REDIAL \(RETRY)" }
  180.  
  181.             syslin_puts(C_GREEN,C_MBLACK,"\(RET)")
  182.             mos_cursor(120)
  183.             wait(8)
  184.         } else if ( VAL = 2 )
  185.         {    /* NO CARRIER */
  186.             inc(RETRY)
  187.             syslin_puts(C_GREEN,C_MBLACK,"REDIAL \(RETRY)")
  188.             mos_cursor(120)
  189.             wait(8)
  190.         } else 
  191.         {    return (-1)
  192.         }
  193.     }
  194.     return    (0);
  195. }
  196.  
  197.  
  198. /*--------------------------------------------------------------------
  199. /*    ホスト [1] ダイアル＆設定
  200. /*
  201. net_1_dial {
  202.     if ( NET_CFG ! 1 )
  203.     {    cfg_load("nifty.cfg")
  204.         NET_CFG = 1;
  205.     }
  206.     nifty_dial()
  207. }
  208. net_1_set {
  209.     if ( NET_CFG ! 1 )
  210.     {    cfg_load("nifty.cfg")
  211.         NET_CFG = 1;
  212.     }
  213.     nif_setup()
  214. }
  215.  
  216.  
  217. /*--------------------------------------------------------------------
  218. /*    ホスト [2] ダイアル＆設定
  219. /*
  220. net_2_dial {
  221.     if ( NET_CFG ! 2 )
  222.     {    cfg_load("ofn.cfg")
  223.         NET_CFG = 2;
  224.     }
  225.     ofn_dial()
  226. }
  227. net_2_set {
  228.     if ( NET_CFG ! 2 )
  229.     {    cfg_load("ofn.cfg")
  230.         NET_CFG = 2;
  231.     }
  232.     ofn_setup()
  233. }
  234.  
  235. /*--------------------------------------------------------------------
  236. /*    ホスト [3] ダイアル＆設定
  237. /*
  238. net_3_dial {
  239.     if ( NET_CFG ! 3 )
  240.     {    cfg_load("jatic.cfg")
  241.         NET_CFG = 3;
  242.     }
  243.     jatic_dial()
  244. }
  245.  
  246. net_3_set {
  247.     if ( NET_CFG ! 3 )
  248.     {    cfg_load("jatic.cfg")
  249.         NET_CFG = 3;
  250.     }
  251.     jatic_setup()
  252. }
  253. /*--------------------------------------------------------------------
  254. /*    ホスト [4] ダイアル＆設定
  255. /*
  256. net_4_dial {
  257.     if ( NET_CFG ! 4 )
  258.     {    cfg_load("nanno.cfg")
  259.         NET_CFG = 4;
  260.     }
  261.     nanno_dial()
  262. }
  263.  
  264. net_4_set {
  265.     if ( NET_CFG ! 4 )
  266.     {    cfg_load("nanno.cfg")
  267.         NET_CFG = 4;
  268.     }
  269.     nanno_setup()
  270. }
  271.  
  272. /*********************************************************************
  273. /*    自分でホストを登録するのはNIFTY.CFG やOFN.CFG を参考にしてｺﾝﾌｨｸﾞ
  274. /*    ファイルを作ってください
  275. /*
  276. net_X_dial {
  277.     wind_close()
  278.     wind_init()
  279.     echo("\n\n    このホストはマクロが登録されていません。\n")
  280.     wait(5)
  281.     wind_close()
  282. }
  283.  
  284. net_X_set {
  285.     net_X_dial()
  286. }
  287.  
  288. /*******************************************************************
  289. /*    TERM_help : ヘルプメニュー [PF-11]
  290. /*******************************************************************
  291. TERM_help {
  292.     wind_close()
  293.     wind_init()
  294.     wind_size_set(72,106,496,268)
  295.     wind_open2("通信用 へるぷ ﾁｬﾝ")
  296.  
  297.     echo("　ログの参照と通信の切り換えは、\n")
  298.     echo("  [TERMINAL]をクリックしてネ\n")
  299.     echo("\n")
  300.     echo("　テキスト編集にもどるときは[PF10]を押してください\n")
  301.     echo("　通信回線を切ってから編集に戻るときは、\n")
  302.     echo("    [SHIFT]+[PF10] を押してねン\n")
  303.     echo("\n")
  304.     echo("　行入力は[SHIFT]＋[PF5]でできるよン。\n")
  305.     wait(30)
  306.     wind_close()
  307.     wind_init()
  308. }
  309.  
  310.